home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / basbox.zip / BOXXY2.BAS < prev   
BASIC Source File  |  1993-04-06  |  437b  |  18 lines
  1. SCREEN 12
  2. main:
  3.   LET ender = INT(RND(1) * 225) + 1
  4.   LET colorx = colorx + 1
  5.   FOR n = 1 TO ender
  6.    ' FOR x = 1 TO 200: NEXT x
  7.     IF colorx = 16 THEN LET colorx = 1
  8.     LINE (325 + n, 225 + n)-(325 - n, 225 - n), colorx, B
  9.   NEXT n
  10.   LET colorx = colorx + 1
  11.   FOR n = 1 TO 225
  12.    ' FOR x = 1 TO 200: NEXT x
  13.     IF colorx = 16 THEN LET colorx = 1
  14.     LINE (99 + n, -1 + n)-(551 - n, 451 - n), 0, B
  15.   NEXT n
  16. GOTO main
  17.  
  18.